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JUMP IF NOT. 
DECREMENT POINTER TO CHECK HD SELECT 
STORE STARTING SECTOR ID OF OLD CMND 
ADD THE MULTI-READ/WRITE COUNT. 
DID IT GO TO NEW HEAD DURING THE op? 
JUMP ITF SO, 
HEAD O LAST 
JUMP IPF so, 
CURRENT HEAD 
JUMP ITF NoT. 
GO CHECK SWITCHES 
CURRENT HEAD SELECTION FOR 
JUMP IF wot. 
RESTORE THE POINTER, 
GO CHECK SWITCHES 3 AND 4. 
OLD HEAD SELECT ART WITH 
JUMP TF SO, 
DOES NEW HEAD ALLOW FoR 
JUMP IF NOT HEAD 0 FOR CURRENT CMND, 
TEX HO ALLOW FOR THE SWITCH ? 

MP OTF NC HEAD 7 FOR CURRENT CHNb, 
GO CHECK S HES 3 AND 4, 
HEAD 0 ? 


HD 0 
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SRITCHING 


SC. 
TT CHND FOR HEAD 1 ? 


SWITCHES 3 AND 4, 
SELECTED FOR CURRENT 
wot, 

BLE 
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JUMP 


POINTER 
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‘OPRTON 
Tr oon 
AP OS 
RG THAN 


SHITCR PTINGS, 


PRINT TOO MANY, 
If -AOFB-. 
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ROGK 
ERR Loc 
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OBCC 
OBD2 
OBDS 
OBB 
ORDP 
OBEO 
OBF1 
ORF3 
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OBRG 
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OREF 
ORF? 
OBFT 
OBRA 
OBFF 
OCO2 
gc05 
"OB 
OC 70 
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oct? 
OCTA 
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ARR OREO IR ROOF ROR ok ke de kat: ke ORK HE REO aK oe et ee ok ie a te eR Re a ke ee ae otek ak aa oir ie eke a RR a ok eh 


* TELL OPERATOR TO 


SELECT # SECTORS 


TO READ/YRITE AND CHECK HEa. 


AIR FORO ROR kkk aR koi ted te tak de ke FOG ROR OR Goi iOiOR RK dk dogg iia tok x Sok dot ak det: 
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*410 
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SHITCHES. 
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PRINT SET DATA 
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BOGg 
ERE LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


27a * TEST TO SEE LF A REMOVABLE DISK WAS ADDRESSED. * 
275 ROIRIISIIGICTOIIGICII GIG ICICI IR IOI III ICI ICO GIG CIGCIOR IG Raia i 
OCT 305 276 CLI SWANL,XtoOt! SS¥ 2 SET TO A 
OCRO Fz ZIT JR DATRE JUMP IF so. 
0C83 3 2 1805 278 Cut SWANL,X'O2' SSW 2 SET To 
NCS? FQ € 279 JE DATREK JUMP TF So. 
OCcaA 3t 5 805 280 CLT SWANL,X'O5! SSH 2 SET TO 
OCBE F2 { A 281 JE DATREK JUMP LF so, 
ocot 3 t > 282 CLI resi aad SSW 2 SET TO 
6C95 283 u3 — cOMP ITF 80, 
OC9R F2 § 3 294 J EXT GO REAM NEXT SSW SETTING 
DAS ke oR eK Hee BEES HOR KEE EE EES reenaneeneenrte ener baEKKepeE 
286 * MAKE SURE THAT OPERATOR DOES NOT SEEK TO TRACKS 4-6 YOR TO 
287 * 74-75, ON A REMOVABLE DISK. THIS IS A SAPE-GUARD TO PREVENT 
288 % DESTROYING DIAGNOSTIC PATTERNS ON PEMOVABLE DISK. 
PRY ME EEC ROR CERES EOE EERIE IEC AOS CE IAI TICE IAC SAA I A Ak 
230 DATRK CLI Ae XR2) ,X'06 TRACK ID GREATER THAN 6 ? 
291 oy XTST JUMP TF NOT, 
252 CLt eee 7atO3t TRACK ID GREATER THAN 3 ? 
293 JH DUMMY JUMP TF so, 
NXTST CLI T{,X¥R2),X"4R" TRACK ID ies ER THAN 75 ? 
JH SaPE JUMP TF NO 
CLT 1(,XR2) ,X'46! TRACK ID GREATER THAN 70 ? 
JH DOMEY JUMP IPF So, 
SAFE TBN O(,XR2) ,xX' sor THIS A SPECTAL SEEK COMMAND ? 
6 ] 25 JT +70 JUMP IF so. 
9C39 32 i ‘ SBN PLAG, Xtuge SEPT NORMAL SEEK FLAG. 
OCRD 2 87 i 30 *+7 
FLAG, &®' 801 SE SPECTAL SEEK FLAG. 
FLAG,X'CO! BOTH SERK FLAG SET ? 
NEXT GO READ NEXT SSW SETTING IF wor, 
30 PRINT PRINT DO NOT MT¥. 
OCCF 30 oc KLIfc6s TID -AOEB-. 
Ocboe 367 dC beh 
OCcn2 38 : AL2 (MIXUP) 
ocba : 3 pC XL2'AQ8Rt 
Of, ¥B2),¥ eee THIS A NOBMAL SEEX ? 
E+10 JUMP IP NOT. 
PFLAG, X'aQt RESET NORMAL SEEK FLAG. 
4? 
FLAG, X'S0" RESET SPECIAL FLAG BIT, 
RLTES GO HALT. 
* RAD TRACK MESSAGE 
DOMMY & PRINT PRINT BAD SELECTION, 
be Mh TCG TP -ROET- 
BC TLTtear 
DC AL (STUPID) 
aC XL2°AQE?! 
R HALT ERROR HALT 
dC EL2ZtAQETE 
n RETRY GO RETR 
* SNITCH SETTING ERROR MESSAGES 
ao. F4 ESW1 MYvT BIGSSW-12,X'F1! SET 2 SWOETC ER 
F2 87 Gb 32) J ay 
BC F2 A 228 BSw2 MVT BIGSSW-12,X'F2* SET UP FOR SWITCH 2 ERROR. 
co 87 24 B PRINT PRINT SWITCH CHECK. 
OpGe C6 opoc 3 bc Litcer ID ~AQES-. 
ODoD 14 ODOD ; BC TLIt20¢ 
THEY ODQF 332 : AL2 (BIGSS®&) 
AQER OD414 133 C ELQTAOR 1a 
co 87 O62 334 HLTES : HaLT ERROR HALT -EA--. 
AQES On? 35 xe LL2"AOESS 
CU AT QAG? 336 B RETRY GO BACK AND RETRY. 
oC O58 TRAY AR 2 ESC MYC LRGSSHW (6) ,3ECTOR MOVE IN SECTOR LABLE. 
i a EQ 
> OC D8 TAR A 33 FTRK HY¥C LRGSS® (6), TRCK } N TRACK LABLE. 
OD28 CO 87 021A ere] B PRIKT 55 364 ERROR M 
OD2PF ¢ i D2e 3 oC XLd'cae 


OC9E 
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OCAY 
OCA7 
OCAA 
OCAD 
Oe C86 
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IN Gwwd 
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0D30 25 0n30 342 TL1'37# 

0D31 1589 OD32 343 ALZ(LRGSSW) 

9D33 ADES on34a XL2'AGE9! 

0D35 CO 87 0222 Bus B HALT ERROR HALT -E9-, 

9D39 AOE OD3A 3 pe XL2'AOEQ! 

OD3B F2 87 31 rs q RDHLT+1 . GO BACK AND RETRY, 
JOTI CIO IG ICO OI GCC IO IG RR ICO dCi OK doi foi doo dk a vom 
* INCREMENT TABLE POTNTER POR NEXT COMMAND. ¥ 
FARIS ICIEICTC CSC GIG CTS I CCCI IGE OIC IE IOI IR AA Eso 

ODIE £2 02 02 357 NEXT LA 2 {,¥R2) ,XR2 INCREMENT TABLE POINTER FoR NEXT ONE 

ony OD6E 52 TEN RDHLT,X#018 LAST HALT AN 81 ? 

OD4as 07 35° Sin *410 JUMP TF NOT. 

OD4R : OD6E 3 MVD ORDHLT,X' ers SET UP AN ~E1- HALT. 

onde F: OW 3 J #47 

on4ur 2 OD6E 3 MVE ORDHLT, x82" SET UP AN ~E2- HALT. 

0D53 17F4 357 ST TEMP, XR2 STORF CMNDS TABLE POINTER. 

ODS7 V7ET 47FE . CLO TEMP (2), ENDO1 FILLED UP TASLE YET ? 

ODSD F 13 359 JE JUMP IF 59. 

OD650 17F4 36 cLe FILLED UP TABLE yur ? 

OD66 F2 On 36 JE rT JUMP IF so, 

OD69 0222 B HALO INLINE HALT ~B1- OR ~E2-. 

OD6D 363 RDHLT pe XL2°A0EQ4 

On6F OnG2 3 B RETRY GO READ THE NEXT SWITCH SETErNGS. 
FRO TRIO CIC ISAS Tok to ERO IOn REA IOR SU IO IO AIO HOR AR aw do 
* DUMP CURRENT COMMANDS TABLE, 
JIA CIORICI ICO RII IG IGA RICCI CI HORS I HOI tok de aR fat goa deok deb ak dee 

OD73 co 87 368 MUCH 8 PRINT PRIN? 'FILLED upt 

ODT? O4 ODT? 2 pe XLI og 

OD78 Or OD7A 370 nc TLI412! 

OD79 1405 DTA 3 pe ALZ (FILUD) 

OD75 BC O01 OT 1781 72 MYC 9 -4(2,XR2) , #0000 STORE 

DDRO CO 87 G21K R DONE oR PRINT pate 


ODER O2 OnRu 37 nc XLd'o2¢ 
ODB5 uO ANRE au TLdtAut 
ODRA TA07 Ona? 7& 2S AL2Z {CM RDMS) 
ODR8 C2 G2 1¢C a7G A CMNDS .XR2 


ODse 20 903 OpeA 
On91 CO AV ThE 
Opes goaoneesa 

0b99 CO 87 O21A 
099) 01 

ONnIE 5B 

OnGP 1943 

ODA1 OC 5A 19A3 1944 
ODA? E2 02 02 

ODAA 8D 01 01 17K 
ODAP F2 81 08 

ODB2 RD FF 00 

ODES ©CO 81 ODAT 


MVIN ORG (4), 3, 8823 
NT IPT 


ORG } CLE taooNOooNGT 


NT RUTIENG SINTER OPPTATTON 


wow tb ud ud 


‘at a 
Be wo wo PON Aw 


wat ind ed a Gat 
2 
Pw Ode 


PRT(Q1) ,PRTH4 
2 {ye XR2) ,XR2 
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LUPE uo = Op oS 


aE 
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oe 


SAO SPE 
SKTP THIS OPTION TF 5a, 
co 87 AbDac GO ANALYIZE THTS OPrtor. 
3¢ 5¢ 19899 > GENIT iT PRT-26, Cle? GENERATE A LINE OF ft#9 5, 
OC 38 1888 149g 393 M PRU-27 (54) ,PRT- 26 
OC OR 1972 1AC9 394 PRTE-G9 (72) ,LSTONE SET UP END OF TABLE L) 
OC 02 194up AGF 395 PRT-36 (") ,DECOOD 
co BB? O21A 394 i PRIN PRINT END OF TABLE 
06 ODD] 397 XLT'O65 
ODDR Sp Oops 398 TLUtQy9 
OOD9 1543 ODDA 399 AL2 (DRT) 
ODDR OC 5A Gi 800 PRE (IT), PRT+1 CLEAR PRINT ARFA. 
ODET co A? a4 HAUT INLINE HALT 
ODES AOR ODER 402 XLQ¢°A083! 
ODE? CO RT GOS LINK RETORN TO DCP, 
ROG 
BOS 
BOR Stora ide 
QO7 * RTHOD + 
bO3 BUCCI RIOR SCI CUBIC ROI I IOI AC CIO IIIS IGRI IGS AHS Joi dak dade de doak de dot ded Ro dex tke 
“oo * 


ahd 
Goo s 
he 


22M AY70 cae i O1DET IO 29APR7Y iDy ORQH~& 
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BOa4d DISK FRIENDS TEST 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
8410 ROUTINE 02 THE COMMANDS STORED IN THE TABLE ARE ¥ 
QT * ISSUED SEQUENTIALLY TO THE DISK AND * 
442 THE RESPONSES CHECNED. * 
413 * 
8G eR Ol RIC CIC IOC IG RIO. GIG IIS Ido dai idk yok 
ODEB 02 ODES 415 RTNO2 oc XLIEOQ? ROUTINE NUMBER 
ODEC 06 ODEC 416 PC KLIT'OO! NO MANUAL INTERVENTION 
ODED 1183 ODER 417 Dc AL2 (8TN03) ROUTINE 03 ADDRESS. 
TA 
ODEF cO 97 419 B PRINT PRINT ROUTINE HEADING. 
Opr3 45 ODF3 420 DC XLUyse 
OvFPaE 72 ODF4 421 pe IL t's 
ODFS 1419 ODFR 422 ne AL2 (HDO2) 
ON? ADAZ QODFA 423 pe XL2'AQOA2* 
OMFS OC SA 51 poral MVC PRT{I1), PRT+1 
ONFF C2 02 Bes LA CMNDS-2,XR2 PRESET TABLE POINTER. 
OENS 3B Ou 426 SBF FLAG, X'QQ? TURN OFF GO BIT. 
“7 3JCISIIGCICIIOICIOICI I I RGR IO RG CIOCICORICI EE IGS IOI HOR I I dak aa i aOR 
“2R ® RECALIBRATE THE DISKS BEFORE STARTING THE COMMANDS TABLE. = 
B29 FOISICI CIO ICO RIC CII IGOICICI OI GIOIGO RO GOI IIGE gC dot dei a dot kaka tok 
TBA 430 DOCAL SBF FLAG, X'20! CLEAR THE ISSUED FLAG. 
TATA “34 TRN FLAG, X*OTS ANY DRIVE 1 COMMANDS USED? 
ay 432 P CLRR2 JUMP IF NOT, 
TBA 433 TR PLAG, X'OG? GO BIT ON? 
OB gyn 7 GOA JOMP IF y8s, 
F205 435 PTC NTRDYA,X'tAOQ? BRANCH OUT TF SPNDOL -1- 
04 436 e+ 7 JUMP TF OK, 
0219 Aa? B 7 TRY AGAIN CN NOT READY. 
7818 438 GOA SBF PUAG,X' Out TURN OFF GO S87rT. 
VIG 439 Tro BUSYA,X#AR! BRANCH OUT [TS SPNDL -1- BaosyY,. 
TTP? 4ug RCOALA,X'AG?t SET SPINDLE -1- DFC? ADDRESS, 
T7FS BaF LIG DARA, X'AQ? SET SPINDLE -~ I~ DAR ADDRESS. 
o0 Ge sta K'OOT, xa! ISSUE SIO TO RECALIBRATE SPENDLE 
1809 SU BATA SNS STSRY7,XtAzt SENSF STATUS BYTE 1, 
4809 Gag iN STSBY1,x¥'10" SEEK BUSY BIT ON ? 
ORV7 was B E LOOP TILL AIP DROPS, 
4809 kER TRN STSBYT,%'4Q' CYLINDER O BIT ON ? 
59 i? dt ROLCKA HUMP LF NOT, 
1860 eld EUR MYC LSERA (2) ,SEEKO+1 SET F AND C BYTES FOR SPNDL -1-. 
3 F844 gua d PLAG, #029 ANY DRIVE 2 C USE 
QESG Po D TE 450 JF RETNIT JUMP TF NOT. 
ORS7T 38 1 184A 4517 CLRB2 BN otk GO BIT ON? 
QESB FD O58 us? yy GOB 
OESE C1 BO 1T2e8¢ aS TTD NPRDYR,k'sor BRANCH OUT TF SPNDE 
04 Sa J JUMP TP Of, 
OESE B55 An} eat: TRY AGAIN ON 
; TSA BOG SBF FLAG, X* Ou! TORM OFF GO 
OF HD C 2 17D B57 TIO BUSYB,XtB2t BRANCH OUT TS SPADL -2- 
ORT 3 46 T7F? $55 Lia ROALB,X' BA! SET SPINDLE -2- DFCR aALne 
OB75 VIFS 45a LTO DARBY XP RYS SET INDLE -~2- DAR ADDS : 
OF79 PR Ff 90 #60 SIO KtOO# xepae : STO TO RECALTIRBRATE $s 
OETC : i 1809 G64 WATE SWS STSBY1, K'B2! SE STATUS PYTE 1. 
ORBO 48 0 899 462 THN STSBYT,X'107 SEEK BUSY BRIT ON ? 
0 ; } ata ae HATA LOOP TILL BIT DROPS, 
ORRBE 0.4! ou TBN STSBY1,¥'30" CYLINDER O BIT ON ? 
ORSC F2 9 aes ae POCLCED JUMP ITF NOT, 
OEBF ac s02 T7PS REG MY¥C LSERB (2), SU RKO+4 SEY F AND C BYTES POR SPNDL -2~, 
0695 F: } 32 a6? J REIWY START EXECUTING COMMANDS TABLE, 
SHA * PECALIBRATE ERROR MESSAGE * 
NB98 3C 9°? JARRE HOO RCLOKR MVT RRATE~V8,xX'FO¥ SET UP SPINDLE ~2= CHFCK. 
NEIC & BOP 470 SNS STSBY3,XIBGF SENSE BYTES 2.6 3. 
QEAQ F2 4 : ary J e+ 44 
pea SE 472 PCLCKA MYE BRATE-18,X'PFTE SET UP SPINDLE -1- CHECK. 
OAT ° 3. T80P 473 SS STSHY3,2°A34 SENSE BYTES 2s 
SEAR / $0 TBAO FARR a7g MYC STSCK-13(1), BRATE-158 NPE DRIVE IM. 
u7S B PRINT PRINT RECALIPS ATE CHECK, 
CRBS 76 bc XLircss If -AO0OB~. 
OF B6 pe LET 25" 


DATE TUMARTC SHAPRIG 22M ay OTAUGTO ACT Iy 2HAPR?" PROG TD 
ae NO STIS 571516 ; j B71571 S?7TS ao 571565 PAGE 


5715S PAGE VBA 


Nid a i ae eS ae a bee eee 4 ETS Ts SPIS34 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129648 
PAGE uh 


BOGY DISK FRIENDS TEST 
BRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OEB7 1809 ‘EBS 478 pe AL2 (BRATE) 
OEB9 AQOE EBA 479 pe XL2'AQOE" 
OERBB 39 FF 1308 480 TRF  STSBYO,X'PF? STATUS CLEAR ? 
ORBF CO 90 71368 4Bt BP STSER BRANCH IF nor, 
OEC3 39 84 190A 4g2 TRF STSBY2,x'S84ut STATUS CLEAR ? 
OECT CO 90 1368 483 BF STSER BRANCH IF Nov, 
OECB CO R87 0222 44 B HALT ERROR HALT ~-O8~. 
CECF AOOR EDO 485 pc XL2¢0008! 
OED1 CO 87 OFOT 4BG B DOCAL GO TRY AGAIN. 
Ua? SEB UCCOICEROSI IEA UB SC US OOO ICO IORI GEO COE ITSO IRI IGOR FAI PICK EL 
43a * START EXECUTING COMMANDS TABLE. * 
YB TEC Te ee EEN Mane AIRS ERSTE E TANS 
OEDS C2 02 i8cc 490 REINIT LA CHNDS, XR2 INITTALTZ® CHNDS TASLE POTNTER. 
OEDY 38 07 020A 494 TBN SBYTE2,3S9¥17 S°W 17 TORNED on ? 
ORDD F2 90 18 492 oF cLRecw JUMP IF Nop, 
OEEO 3c 1999 493 MVI | -PRT-26,xX'5¢r GENERATE A LINE OF =*-1s, 
OERY OC 1988 494 NVC PRT-27 (64) ,PRT- 
ONEA C O21A 495 B PRINT PRINT THIS LINE. 
OREE ¢ OBER 49% pe XLTtO 
OREF OEEF 497 pe ILitg4 
OFFO TFT 49g DC AL2 (PRT) 
ORP2 Of JOA3 19484 899 MVC | «PRT (91) ,PRT+4 LEAR PRINT ARZA, 
ORFS 02 1815 1816 500 CLRCCW MVC TM PCCH (4), TMPCCH+ 4 LEAQ OLD CONTROL FIELD AND 
OBFE OC 1819 183A 501 MVC 9" THPSTN+2(2),qFPEF 
104 4784 502 cL 1(2,¥R2), 49000 THATS NEW COMMAND THE LAST IN TARLE ? 
T1CH 503 BE BENOIT BRANCH IF $0, 
00 504 CLI COPRe TIS A SECTOR COUNT opTtON ? 
OFI) F2 07 505 IME LBC JUMP TF Nov, 
OF13 EQ 02 506 LA 2(,X82) ,XR2 INCREMENT POINTER TO SKIP THIS. 
OFIG CO OBER B SLRC BACK AND VEST FOR LAS ST OPTION. 
FOR RRR Sia tok gk fo oak Ak Rok ae ko ok BRR A RRR to eo ik tote ee RO Se a ote ko oe 
* ANALIZE CURRENT SWITCH 1 AND MODTFY START I/O ACCORDINGLY. 
FOO IOS AIA EAE EK RET EAE KES EEE EHR GRE READE EEE ERE ER ORUEE SS 
CLROK LA OPTSHT1, 424 STOR AR $3 OF SSW1 OPTION VARLE. 
MNZ  SHANL,O(,¥22) STORE 3s VALUE FOR ANALYSIS. 
TNCSWT LA 20,881) 481 INCREMENT TASLE ADDSE 
SLC SWANL (1) ,¥001 DECRFMFN™ SHTTCH VALUE. 
RP INCSa4 NCH BACK IF NOT ZERO, 
AVC PHPSTO#2(2),1(,¥R1) BRING IN NEY COMMAND, 
TROON TR OIC I ok OI ERIC OIE EIR EAR ADK RRS ERR ER 
* ANALYTZE CURPENT SWITCH 2 AND MODIVY SPART Tyo ACCORDINGLY. * 
ECE E DCO H A UO ERE Ra Rik ROR Ca ke rok kok dak hfe gf ok de ge aks ok 
OFIS ¢ 1357 2 LA OPTSH2, xR I STORE ADDRESS OF JS¥2 OPTION TABLE. 
OF 29 28 03 1905 12 MNN  SANL,O(,%82) STORE SSR 2 VALUE FOR ANALYSIS, 
OFIE D2 01 422 INCSW2 LA TO,ERV XRT INCREMENT TASLE ADDRESS 
OFO4 OF 09 1805 17¢ 2: SLO SRANL (1), 80014 DECREN NT S#TTCH VALUE, 
OFAT CO 84 OFIE 52 RP TNCSH BRANCH BACK IF SOT ZERO. 
OFUR TC 00 FSS mvc ETT+1(1) ,0(,¥R1) MOVE IN BITS TO BE TURNED oN. 
OF5O 3228 01 OFS 2A SBF SETTe1, x04" ERASE ANY 88) E 
OFSH 324 DO 7818 27 SET? SP EMPSTO+T, 1008 SE? SITS T¥ STO ACCORDING 
OFSR 39 07 1818 7 RE PSTOHT, XtQ7! NEW COMMAND BE A SEEK ? 
OFSC F » 62 2 7 SKFLIY JUMP TF 30, 
RRC AIOE OR RRO ERROR KOE Ak EE UM ORR TS Se oe ae Be ak oe afc ake pe oa oe oe oe 
* 3UTLD THE CONTROL FIELD FOR A READ OR WRITE COMMAND, * 
BIOTIC IO GIOR IOI IO IIGIICI OIG IOI GI ia IE dO HO Jota dokaca goa gio 
OFSP 2¢ 1} 53 MVC TEMP (1),1(,¥%R 2) STORE CORRE 
OPAL OF IP. 17h 3 ALC TEMP (1) , TEMP PUSH THE SECTOR ID BITS OVER THO 
OFGA OF Te E ; ALC «TEMP (1) , TEMP PLACES FOR THE -S~ CONTROL BYTR. 
OF7TG 78 ¢ vF TBN OG, ¥RI),eKt048 HEAD 1 FLAG SET BY SS¥ 2 OPp?ToN 
OF73 F2 ¢ oF 447 JUMP TF NOT, 
OF TH VEY SRN 'FENE, Xtags SET HEAD 1 Sinoin BYTE. 
OFTA 00 1814 T7F4 MVC | TNPCCW-7(1),TEAD STO S- BYTE TN col » FIELD 
OF 8D : 0 1918 THN  PMPSTOFT,XT108 THIS FOR SPINDLE -f- comMaND ? 
OF8& F2 90 99 JF *eT2 JUMP TP NOT, 
OFAT OC O71 1814 1802 MVC -“MPCCW-2(2) ,LSESB BRING IN TRACK ID AND FLAG FOR =R-. 
OFSD F2 06 3 HH 
OF90 OC OF 1813 TRODO MVC HPCCW-2 (2) ,LSRKA BRING IN CURRENT TRACK AND PFLAG ip, 
OFo6 BD FF 02 CLE 2 (,¥R2), Xt eRe THIS & MULTI-REAL COMMAND 7? 


Ay 


Ws 
wt kad 
oma 


Stn 
f&ere re 
Fw ha oO 


ae § 
wi 


aa 
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MAINTENANCE DIAGNOSTIC PROGRAM 
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BOuY DISK FRIENDS TEST 


ERR LOC OSJECT CODE ADDR STMT SOURCE STATEMENT 


JUMP TF NOT. 
STORE NUMBER 
SET IT TO DISK 


JNE 
547 MVC 
548 SLC 
549 J 

550 GORUN MYT 
551 CLT 
552 JNF 
553 MYC 


GORUN 
TMPCCW(1),3(,XR2) 
TMPCCW(1),N001 
"+7 

TMPCCW,X'OO! 
TMPSTO+2,x'02' 
TSRDY 
TMPCCW(1),17¢.XR2) 


F2 
2c 00 
OF 00 
F2 87 
3c 00 
3D 
F2 
2c 
3B 
F2 


01 OF Su6 
7875 03 
7815 17?c4 
O4 

1815 

1819 

31 

1815 

1814 

TS 


SECTORS TO READ/®RITE. 
LANGUAGE. 


READ/WRITE 1 SECTOR. 

THIS A DIAGNOSTIC READ COMMAND ? 

GO ON ITF Nop, 

STORE # SECTORS TO READ. 

554 SBF TMPCCW-1,xX'7C! SET STARTING SECTOR TO 00. 

555 J TSRDY GO ISSUP THIS COMMAND. 

556 JOSIE ICICI GI I IOI CIE IGS ICICI IOICIG FGA AISIGIGIER ECA aI aI fe kaka 

S57 * BUILD CONTROL FIELD FOR A NEU SEEK COMMAND. * 
558 BUCCI IAGO ICR ISIC GIG TOI II OCI III IOI IOI IE GIGC AI ERG dct adi dia 

00 $59 SKFLD 


TBN O(,%82),"'80! THIS A SPECIAL SEEK COMMAND ? 


OPER 
OF FE 
1904 


1030 


12 
TBIA 
07 
O2 
ORF 
1844 
00 
O4 
1844 
1813 
18193 
Q9 
TTP 4 
06 
VFI 
VFA 
99 
VTP 
29 
VIF 1 
1818 
09 
TIP 
08 
TTF 
TATE 
1815 


07 


1802 


1800 
1AT3 


1813 


1843 


TeO2 
1800 


VEY 


JF 
TBN 
JF 
LA 
B 


HD1TH SBN 


STRIT 


HDVH+4 

FLAG, XY20% 

HD VH 

2{,XR2),XR2 
CLECCW 
PLAG,X'20" 
O(,XR1) ,xX'018 
e+ 7 
TMPCCW-1,X'80! 
TMPCCW-2(1),1(,%R2) 
TMPSTO+1, X' 708 
¥+72 
TEMP(1),LSEKB 
#49 
TEMP (1) ,LSEKA 
TEMP (1) ,TMPCCH~2 
NEWLEG 

TEMP (4), TMPCCN~2 
STRIT 

TEMP (1) ,TMPCCH~2 
THPSTOt1, X' 198 
*+ 72 
TEM?’ €4) , LSEKRB 
e499 
TEMP (1) ,LSEKA 
TMPCCWH1T,X'OT! 
TMPCCW (1), TEMPE 


JUMP TP NOT, 
ISSUED THIS 
JUMP IF Nov, 
INCREMENT TABLE POINTER. 
SKIP THIS COMMAND. 
TURN ON ISSUED FLAG. 
SSW 2 SET POR HEAD 4 
JOMP LF NOT. 

TURN ON HEAD BIT IN 
STORE CURRENT TRAC 
THIS FOR SPINDLE ~B- 
JUMP TP NOT, 

STORE OLD TRACK ID 


COMMAND YET ? 


FLAG ? 


THE 
TD IN 


~ Se 


FOR 


“Be. 


ID FOR 
GREATER 


STORE OLD TRACK ~A-, 
CURRENT TRACK ID 
JUMP TP SO. 

FIGURE # TRACKS TO MOVE RE 
MOVE 
THIS 
JUMP 


CURRENT 
FOR 
IF 


TRACK TDs 
SPINDLER. - B= 
NOT. 


COMMAND 


OMMAND 


BY 


Peres 
os 


4 


THAN 


° 


TE. 
BYTE. 


OLD 2? 


FIGURE # TRACKS TO MOVE FPORSARD, ~-B 


FIGURE # TRACKS TO MOVE FORWARD, 


TURN ON 
STORE # 


MOVE 
TRACKS 


FORWARD BIT IN 
TO MOVER, 


FOI OIC IC OIA ILO ICICI GORI ISIOISI SGI IOI FOIE I SIO TO HOI GIEI CRI IO Fok 
* SAKE SURE THAT THE SPYNDLE IS READY REFORE TSSUTNG A COMMAND. * 
FCIOICIOIOII CIC TOR IOI ICICI IOI IOI CO RIG IG IGG ki dak Adc aa dak 


1034 
TO3A 
1040 
TO44 
VOu4 
WOan 
tac 
TOuF 


1818 
OB 
Tans 
oe 
103D 
t2EC 
on 
TOUR 


TSRDY Tan 
oT 
TIO 
J 
B 


RDYA 


B 


TMPSTO+T, KETO 
RDYA 
NERDYA,X'AO" 
C16 

RDYA 
WERDYR, ! 
CRIS 
RDYS 


BOS 


NEXT SMND POR DRIVE ~2- ? 
dOMP TF so, 
BRANCH PF perye 
GO DO NEW CAND TF 
GO TRY AGAIN, 
BRANCH IF DRIVE 
GO DO NEW CMND 
GO TRY AGAIN. 


-i- IS NOP 
READY. 


-2~ TS 
IF READY. 


READY. 


NOT READY. 


BUCCI IGICIIOI III UII IOI IC II IO ICIIOICICIGIIOI OC AGISGICE IO IO ICI sak zag le kar 
* CHECK SSW OPTIONS BEFORE ISSUING NER COMMAND. + 
FOOT AICI ZCI ICICI ISIC I IGISIGCIO IOI CIO IO ICR IGEOICIG ACLISIR Ria ak dota de ae 
TBN SBYTEL,SSW17 SSR 17 SET 2 
BT DUOMPIT GO DUMP CORE TMAG 
FRSC OIG CII I ICI IOR OIC CII ICR doi tO sc dak dak desea deme ee See oe ee 
+ FILL MAXTMUM READ/SWRITE AREA WITH PRES, * 
FORCE ICR IU IIE FAI TOU TOR TOI IO ROCIO SR I RCE ISIC FOI HOR ICTR OK RCH og tk 
BSTO THN  SBYTE3,SSwWic SSH IC 
ap DONE SKIP FY 
La PIL+X 40100, 221 ser 
CLI MAX, x18 16 SECTOR + ? 
SMR FET JUMP TF an 
LA PIL+X'OPOO', XR1 SET ADDR" 
CLI MAY, 298 42 SECTOR THI 
INR #47 JUMP TP MOT, 


CRG 


ee a 
moh 
ETC. 


HOR 
BOT 
608 
609 
ATO 
&V4 
642 
6173 


O20R 
» 52 

TFEA 

730¢ 


PA R16 SPCTORS, 
TRO CAXTAUM ? 
ou 


1074 


Taye 


G4 


A 
UROU-§ i 


571565 PAGE 7 


224M AY7O OTAUGT7O D1OCTTO 25APR74 PROG TL 


STAD 5 STI58O 


OB APRTO 
571516 


NO. 


IBM MAINTENANCE 


5715 


BOGY 


ERR Loc 


1078 
1O7C 
1080 
1083 
1087 
1OBR 
108P 
1093 
1099 
109d 
TOA3 
1OAQ 
TOAC 
TORO 


10B4 
TOBA 
10¢c0 
TOCH 
10ce 
Topd 
TOD4 


TOD7 
Wop 


VODE 
TOR? 
TORS 
TFORB 
TOP 4 
TOF? 
TOPS 
TORE 
1105 
4109 
1100 
1141 
T1714 
118 
TTR 
V11P 
Pi? 
1128 
F123 
VIOF 
1132 


4135 
1138 
ATE 
1444 
V147? 
aces) 
TVG 
T1549 
VVS7 
J15b 


DATE 


Le 


NO. 


12 


DISK FRIENDS 


OBJECT CODE 


C2 
wD 
F2 
C2 
34 
34 
34 
OF 
3¢ 
oc 
On 
F2 
36 


co 


OF 
30 
01 
07 
O14 
04 
01 
07 
FE 
FR 
OF 
84 
04 
87 


01 
03 
00 
00 
6 
AG 
87 


000000 
F300 


a0 
A2 
10 
10 
0 
30 
0" 
a? 
o1 

37 


FUMART 
SPIRT2 


574 


BDER 
130¢ 
O04 

UDEA 
109¢ 
1OA2 
TOAG 
TOAO 
0060 
0000 
1OAO0 
08 

TIDY 
TORF 


1ODp 
VODA 
10CD 
VOD1 
VF 
VIFR 
O04 


00 
00 


TODC 
50 

TIOA 
TOPE 
TEOS 
TOPP 
T7495 
TOR 
VTA 
1OFF 
Ope 
wat) 

ype 
Pu 

TOpD 
6p 

TOna 
Ay 

1an7 
“FE 


SA 


FTC 
TANG 
1909 


pte? 


TVIB 
Tone 
v4 
1802 
06 
1900 
ras 


() 


DIAGNOSTIC 


ADDER 


VICH 


O000 
TROE 


TB19 
115 
Tope 
OH 


TODS 


TON 8 


QOBRADRTO 
SUTS AG 


TEST 


PROGRAM 


STAT 


614 
615 
646 
677 
618 
6149 
620 
624 
622 
623 


640 
GAY 
ni? 
Bua 
Bun 
GUS 
BuB 
Aud 
GUS 
6449 
450 
651 
652 
653 
654 
655 
856 
657 
683 
659 
6660 
664 
HE? 
S63 
664 
665 
BOB 
oOo? 
568 
669 
670 
qy4 
67? 
A743 
G7 
675 
ATK 
77 
GIR 
A79 
680 
Aad 


SOURCE STA 
LA 

CLT 
INE 
LA 
sv 
at 
st 
SLC 
NVT 
AVES 
CLC 
JE 
A 

B 


STMYS 


AA ENS ae OFS 


S7TTSRO 


TEMENT 


FIL+X"1F00', R11 
MAX,X'30# 

+7 
PIL+¥'2PO0', ¥R1 
MOVS+3,XR1 
MOVS+#9,XR1 
MOVS+7,XR1 
MOVS+7 (2) ,NO0O1 
¥-* UP PY 

HOR (DSB) ee * 
MOVS+7 (2) ,LSTADR 
DONE} 

3256,XR1 
STMVS 


it 
NI 


POR 
THE 
NOT. 


ne 
IS5 


SET ADDRESS 
48 SECTORS 
JUMP IF 
SET ADDS 
BUILD MOVE 
THE READ/SWRITE 


FOR 


bo 


THE ACTUAL 
ED THE 
sO. 
DECREMENT THE 
CONTINUE THE Moy 


PTT 
FIL 


2 


32 
MAXTNUM ? 


Le 


L 


o> 
Mt 


INSTRUCTIONS 
AREA 


PART NO, 5129648 
PAGE 5A 


SECTORS. 


SECTORS. 
TO 
WITH 


PILL ALL 


EEA. 


PILLING. 


YET ? 


ADDRESS. 


NT. 


JOISTS ICICI RIO CIOII IOI IGICIOIOI ICIS ICICI SI GI OI AOR dR a iota kak dees 


* NEW 
DONE MYC 
MVC 
M2Z 
N22 
LITO 
LTO 
J 


LDODFCR 
LODAR 


COMMAND £5 STORED 

TLSTO#2 (2) ,7 
Wa), TMP 

LDDFCR+1,ILSI0+14 

LODAR#T, TLSTO4+4 

COW, KURA 

DAR, XtAGt 

ILSIO 


IN 


THE 
ORCI IIIOR CRO RIOR CIO ICRC ORG a IOI fof I CA ICR cake ae tr 
LO+2 


INSTRUCTION 


BRING IN NEW STO 


SET UP LIO CMNDS 
LOAT CONTROL 
LOAD DATA ADDRES 
JUMP OVER CONTRO 


iS) 


L 


TO CORRS 


STREAM AND FXYECUTED. »* 
ORR ROK aR RR ROK deo RR deol 
AND 


CONTROL FIELD. 


TO SPNDL. 


REGISTER. 


REGISTER, 
PISO. 


TOR RCI ISO; ROR ICR Ror I dak dR RC HO a zeke ie ee be eR ake ae tek TORR RRC RCM fe deal teak ke ge abs Ace ok ee de de ge ake aR ge ke 


* TN- 
ILCCw pe 
ay TO sito 
ARR A foie ake ae Xe 


FOR RR SR Rk eke csi ie a a ot itokook tok dak gook ge ded de i taka doa ete deft 
IT TIMES 


* MON 
Rt tog SOR Re 
TRE 
ae 
MZZ 
S22 
MVC 
TIO 
R 


SLC 


BUSY 


YINY 


HANG 


RR RR Rik tok 
* TIM 


Me 
sye 


RSYSK 


SNS 


BY 
TRAN 
dF 
MVC 
il 
MVC 
5 


CHECK 


OTAU 


STS 


LINE START I/0 
XLE'OOO000008 
XPOO",xXtOOF 

ROR RCo ROR gO gOR He ok 


TTOR BUSY PILL 

oh SR eo ode a de a ote ate te de ak 
TLSTOHtT, XO?! 
BSYSK 
HANG+1, TLS10+4 
BUSY+t, ILSTo+4 
COUNT (2), BSYTI" 
YEMY,X'A2" 
NORSY 
COUNT (2), NOOT 
TALNG 
YEIMY,XPAD? 
TLSTO+#1, £1028 
TNCER 
TLSTO+1, x01 
TNCER 
ILSTO#2,xKtOTF 
TNCER 


COMMAND 


TLOCW-2 (1), TM PoOCH 2 


BADTD 


THCER 


ee ee ee ee ee ee oe ee ee ce ae eee ee eee 


SEEK BUSY. 


AND 


our 
SOR RROb ako ke keke te 
COMMAND AOS 


{TS 
~ CONTROL 
INLINE 


PIFLO 
START 


om? 


AN 


50. 


Ir 
uP 


CLEAR BUSY 
BRANCH TE 
GO PRENT 
“BEMEN'T 
LOOP TILL DONE 
STAY HERE TILL 
THIS A WRITE 
JUMP TP So. 
THIS A READ C 
JUMP TP NOT, 
THIS A READ 
JUMD IP sor, 
EXPECTED 
JMD YF 
THIS AN 
JUMP TF 
GO DO NF 


RO 


DEC STALL 


ID 


so. 


nov. 


COMPA 


BOIIOIO BiG ke sok ak kok 2 te oak ae dR go kok ik ake 5 


SNS+7,7.STO# 
STSHYT, KtAB 
STSBY1T,X® 10+ 


ro+t,e'to8 


LOEKB (2), TLCCWH2 
*49 

LSEMA (2) ,11 
INCER 

MESSAGE * 


GT 
v4 


OTOCTTIO 


S7TS5a0 BY 


29APRTI 
1565 


SEEK BUSY BIT 
STAY IN LOOP 74 
LAST COMMAND 
TUMP TP NOP, 
STORE TRE 7 


ON 


STORE p 


GO 


THE F 


At 


COUNT. 
SPINOLE 
BUSY 


ALTERNATE 


if 
FOR SPTNOLE 


r 
a 


CONTROL FIELD 


TsO 
BORIC RGR OI io de ia TI HOg dee pe ROR ge dR HTS ete ade de ak 


Boge oh ook oe gee 


SCE fe te ok oe ke te of 
oa] 


STOR 
ORAGE. 


COMMAND, 


— 
AGE. 


AR A aba ab ok ee fea 
* 
RCA OS oR aC Roc Be ae ae ae ae ao 


? 


BUSY COMMANDS. 


det aS. 


ON, 


VALUE. 


STAL 
BUSY 
COMMAND ? 


AND ACTUAL 


2 


AND © BYTES 


u 
YUCREMENT COUNTERS, 


ING. 
PROBS, 


HAND ? 


COMMAND ? 


TRACK TOtS FOUL? 


VE TRAK? 


Rosh te de ae Seok ke 
a 


Rg Me dete a oe dee 


BIT 


DROPS, 


-~R- 
FOR 


BETES POR 


PROG TD OnQa-k 
PAGE SA 


EO ONO, 


571542 


BOuY 


ERR 


Loc 


T160 
T16u 
1165 
VIB 
TAD 
116d 
VI6E 
1170 
4172 
1176 
1177 
PITA 
TTA 
i1VW7¢ 
7180 
19185 
17189 
STRS 


DISK FRIENDS 
OBJECT CODE 


cO 87 O21F 
01 
TOD 
1639 
co B87 
01 
1813 
1c2F 
co 87 
C6 

24 
1039 
ASDA 
CO 87 
8E 01 
co 87 
ROOA 


1329 
&3 17c4 
0222 


co a7 


OBO? 


7164 
4766 
1168 


116D 
116F 
1171 


1176 
1177 
1179 
1178 


a MOPS 


571513 


Ll 
571534 


MUM 
571586 


nw DAE 


STMT SOURCE STATEMENT 


582° BADID 8B 
683 DC 
HRY pe 
695 BC 
686 B 
687 oc 
68a oc 
689 DC 
690 q 
697 ac 
692 pe 
693 BC 
694 pe 
695 B 
596 ALC 
697 8 
498 pc 
A999 R 


UNPACK 
YLitr 

AL2 (LTLOCW=2) 
AL2(SKITCK) 
UNPACK 
TLitt 
AL2(TMPCCH~2) 
AL2 (SKITCK~10) 
PRINT 

XLitc6t 


ALQ¢SKITCKY 
XL2°AOOAt 
STSOK 
93(2,XR2),NOO4 
HALT 

XEQ*AOOA? 
DOCAL 


PART 
PAGE 


UNPACK ACTUAL TRACK ID. 


UNPACK EXPECTED TRACK TD, 


EXPT/ACT TRACK 
AQODA~. 
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1228 
0373 
C61 
0994 
0754 
O17 
1011 
0722 
1256 
W267 
0780 
g2u9 


22 
0337 
0903 
0426 
0328 
9239 
1644 
14.22 
5453 
1308 


Ta] 
8392 
1055 
Ou 38 
0456 
O718 
0550 
107 
elcmas) 


OAS6 
THAT 
1502 
THO? 
1666 

565 
O167 
1651 
1A52 
O34 
1264 


1263 
Tha? 
aang 
0600 
OFA 


VES? 
T1058 

0762 
9513 


OBA PRTO 
571916 


PROGRAM 


REFERE 


0277 
0395 
O778 


0797 
1192 
11736 
OR28 
1094 
0486 
1214 
99077 
O607 
09S 
O759 
9292 
0602 
1503 
0353 
0360 
0777 


0200 
ORT 
0082 
0094 
0272 
9668 
1266 
374 
O07 2* 
O43 
114 
0398 
1082 
0434 
0452 
o713 
OSu6 
N18 
0073 
0724 
O6u Gx 
0175 
1554 
1567 
DUR? 
0560 
0164 
05014 
0131 
2208 
0065 
1140 
1262 
1177 
0976 
N6 U2 
O631* 
O742 
O93 
1120 
0658 
9595 


CROSS~RE 


NCRS 
0279 0284 


0782 


1206 1220 
0830 
1759 
0699 


0832 


0925 


9625 


0793 
0297 


“OBE 
0098 


OTK 


O38 & 
1U43 


Hug 


O14 
M796 


0123 
08349 


1568 


0562 


9958 
03175 
0076 
T1442 


T1849 


0663 
0633 
O74 
0897 


0665 
D634 
OR SO 
04904 


2660 0662 


0283 


200 


617 


OB F? 
0637 
0854 
1026 


ObGG 


OTANG?TO 


FERENCE 


12293 


OF00% 
ONS Ks 


0679 
Q647 
OAS3 
1030 


O67 


O100TT 
571590 


G684 
0649 
0892 
1034 


0680 


\ 


0836 
0650 
T0688 


O312* 
S919% 


O3tas 


OVs2 


12385 
0659 
1079 


QU 2K 


0804 


G667 
1207 


PART NO. 


PAGE 


04304 


OBBY 


TO44 


o671 
4275 


Oud 


TOUR 


O80a-4 


15 


PART 
PAGE 


T2W MAINTENANCE DIAGNOSTIC PROGRAM NO 


BO4Y DISK FRIENDS TEST 


CROSS~REFERENCE 


SYMBOL 


INCSW2 
INCT 
INC2 
INRD 
INTRO 
KNOTO 
LODAR 
LDODFCR 
LINE 
LINK 
LPCLE 
LRGSS 
LSEKA 
LSEKR 
LSTADR 
LSTONE 
MANY 
MAK 
MAXSCT 
MIX 
MIXUP 
MOD3 
MOVS 
Mp 
MUCH 
MVCMND 
MY TN 
NOZY 
NEGO? 
: BG 
NEWLPG 
NSWON 
NEXT 
NOBSY 
NOL 
NODES 
NODT SK 
NOK 
NOM. 
NOMOLT 
NOSO 
NOSPR 
NOTOO 
NTRDYA 
NPRDYB 
NTRPT 


NUMR 
NXTST 
Nooo 
NOOT 


NOOO? 
NOOR 
NOG4 
YONG 
NO24U 
NQ72 
OKST 
OON 
OPTS¥H1 
OPTSW2 
ORG 
OTRED 
OUTHER 
PARE 


Se eS ee ee 


* oe 


LEN 


003 
006 
003 
906 
035 
013 
O04 
Oo4 
004 
004 
006 
037 
002 
002 
002 
072 
O04 
OT 
007 
O08 
027 
001 
OO4U 
004 
00g 
0014 
065 
023 
O92 
062 
06 
908 
G3 
O08 
O03 
OO4u 
OF 
306 
O03 
O04 
005 
om 
Oo4a 
ogy 
0048 
O04 


aot 
N03 
004 
002 


002 
002 
OQ 
602 
062 
002 
904 
O08 
007 
004 
O08 
O04 
OOu 
O08 


VALUE 


OF3E 
126C 
ODA? 
1618 
907 
IDEA 
1On0 
yoce 
1585 
0276 
1272 
THAD 
1890 
1802 
TS0E 
TAC 
OBRBB 
180C 
18 EB 
OCCR 
TE? 
0001 
1999 
TIRE 
On73 
TAAG 
Onege 
ICSP 
T?Re 
T7D8 
1010 
1249 
OP3E 
7749 
QAF 
OAR 
TPAA 
VA2K 
OBaO 
1502 
IP2C 
TRAA 
0c24 
1205 
T2EC 
THEE 


4604 
Ocay 
YE 
V7C8 


VICK 
17Cc8 
VICK 
TICE 
VICE 
T7p0 
1355 
12A5 
1839 
S57 
OD98 
T5CF 
0823 
TEFD 


DEFW 


0522 
9773 
0356 
1105 
T4sy 
1494 
0636 
0635 
1053 
1635 
O774u 
Tu 1 
1283 
4294 
¥293 
TU52 
0203 
1292 
1402 
0305 
THB 
1653 
96 22 
T2u6 
QAR 
7382 
O378 
Wit 
1258 
T25% 
oO579 
o7as 
354 
204 
0137 
OTR 
1665 
0760 
O60 
nggo 
1563 
THA 
0239 
ORTH 
OR 2? 
0953 


F151 
02594 
T6H2 
T2549 


1252 
1253 
1254 
1255 
256 
1257 
O862 
O7 a4 
1349 
1365 
OBO 
4156 
01514 
1550 


REFERENCES 


0524 
0765 
03290 
1093 
0070 
0242 
OB Bue 
QH33* 
TORS 
O40? 
784 
O337* 
OuUUaA* 
OUsSE* 
OA2u 
0394 
9195 
226 


V557 


0408 
0106 
O58 18* 
T230% 
0359 
O9649 
0394 
T?2O3% 
0130 
O626 
O76 
O775 
9201 
S653 
OV3a? 
0403 
O712 
O755 
01348 
0994 
TS60 
0127 
0225 
OURS 
O453 
9379 
7108S 
V14a5s 
0294 


O54 
047g 
9135 
OR16 
O14 
0969 
0234 
F108 
OBUO* 
O78 
O577 
0520 
OVTas 
4078 
0748 
+943 


TOuUd 
07598 


O339% 
O95ua 
0542 


0764 


0809 


1665 


o592 
6595 
UTE 7 
3167 


V1E9% 


0523 
0979 
O9a0 
0822 


N243 
O574 
0572 


06 20% 


1216 
O8748 


9288 


1470 
1073 
0876 


0584 
0582 


062 1% 


0204 


0954" 


0624 
4419 


0978 


On79* 
OB 77% 


1568 1* 1563* 1566 


C828 4268 


O95R 9968 0987 


D696 
VIgS 


Os5a 
1123 


0e93 


onNu-4 


TSA 


DATE TAM ARTO 


574542 


OGAPRTO 


571816 577540 
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BOGU 


SYMBOL 7 EN VALUE EFN REPERENCES 


PM A 004 4743 35 1233*% . 
PRINT O27A 1636 0067 0109 ; 0217 0284 0249 03605 0317 0329 
0340 0368 373 0381 0396 094149 0495 0690 O742 0749 0785 
9794 0834 5 O881 0885 0898 0929 1611 1618 1031 1041 
1056 .1088 1707 4178 1121 1150 1156 1162 1169 1178 
1193 74207 2 1236 1240 1552 1595 1599 1603 1607 1671 
1615 1622 
006% O064* 03984 0385 0385* 03292* O393* O394* 6395* 0399 oO400 
DO8OO* 042% OH2H* O4G3* D4IK OUd4* 0899 O499% O747* OF4B* 0752 
0753 O0753* 0761* 0762* 0763 O7Kh3* OF73* OF 78* O782* O78B 0789 
O789%* O888 0889 0889%* 0960* 0965 O982* O983* D986* O989* O997* 
0992 0992* 0998 1021 1022 022* 1O53* 1055 1055* 1959 1066 
1O60* 7104 4105 1105% 1113 1117 T1178" 11730% 4134 17135 1135* 
TIGGe TET ATGD 1789* 1153 4154 1172 1173 1173* 1243 1244 
V244* 13B9* 1384* 1385%* 1386* 13.97% 1389* 1390* 1391* 1392* 1550 
1550* 1551* 1555 1589% 1590 1590% 15 1618 
0927 0996 06912 09918 
1278 N440 4662 
1662 O458 
1664 
0472 Ou? 
0469 9465 
1442 1984 
F THuy 13845 
ROALT? 4 2 e 0363 0347 K O354% O356* 
RDIDR  ? z rE 7463 T3RS 
1484 1390 
14as5 1387 
0844 O917* 
0592 O594 
1070 4072 
0595 0591 0597 
1073 1069 1075 
1659 O274 
FAS3 1706 1270 ? t2F 3293 16474 
0962 0959 
Gha9 0450 OuUG7 
GO75 9176 06125 3 328 3 0364 
6979 O918* G96 
1499 0986 
0726 0723 
ReT ! 5¢ 1009 Q956* 0961 
RTNO1T 3 } 0058 9018 
RTNOQ 1 FB 9415 9060 
O736 O41? 
0850" 
0295 
O851* 
04941 0601 0870 092 1231 
6606 O706 0716 25 
yon? THZE 0965 065% O740 74HQ* 0760 O77 2% 
TART uS5 0989 41654 4657 
} 1DaD & O2T4* O216* 0229 
SECTOR AO TREY 657 0337 
SEEKO A ¢ VIF2 127 O448 O466 78 
O3DB : 0253 
OC3F 253 D244 g2uR 
OFS4 052 O525* O526% 
VEC3 314 0062 1629 
ippa 4g O98) 
7945 $2° OV7 Ts 
0203 1650 1556 
TARAS 1656 1383 
OFct 0559 0525 
1039 1468 9685 Of89 
T13R 2 0677 0674 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


BO4L 


SYM30L 


STAYS 
STRE 
STRFLD 
STRIT 
SUSBYO 
STSBY1 
STSBY2 
STSBY3 
SISCK 
STSER 
STSOK 
STUPID 
SUB 
SUM1 
suM2 
SUM4 
SUNG 
SVKR1 
SHANL 


TAP STO 


TOLNG 
TRACK 
TRCK 
TSRODY 
ESTO 
UDT 
UDTCK 
UNMR 
UNPACK 


NPR 

PCCW 
VRIN 
WATA 
WATS 
URDAT 
WRID 
WRITE 
HRE YT 

WREOD 
WRK 
WRMUL 
XCED 
ERI 


Tt 


< PPP Se SS Se ee OOOO ee 


DISK 


LEN 


013 
004 
017 
004 
004 
001 
001 
901 
001 
001 
010 
029 
004 
004 
036 
006 
001 
G01 
094 
001 
020 
O04 
O04 
048 
006 
076 
015 
015 
906 
002 
OOF 


04 


FRIENDS 


VALUE 


TAAS 
1206 
TABD 
1597 
1436 
0020 
0008 
0901 
0080 
0040 
7850 
1E7B 
1087 
TABR 
TESF 
10 30 
7808 
1809 
TROA 
180B 
IB46 
1368 
1329 
IBEF 
TIAG 
TA21 
TA30 
TA3F 
TANS 
1807 
1805 


TTF 


0212 
T3145 


1817 


1742 
TADE 
TADR 
7036 
T3D6 
V7FA 
1EC2 
1249 
0218 


163A 
1704 
1D93 
ORRT 
OETC 
TATE 
VAS? 
icra 
TB60P 
1810 
1811 
Taos 
PNAS 
0007 


TE 


1637 
7302 


T3049 


1215 
7480 
1658 
o5%0 
9905 
7280 
1503 
C746 
1638 


4112 
1174 
14 86 
GHUR 
0461 
14aas 
THGT 
1660 
1294 
eae 
1296 
THS2 
TABS 
1639 


$T 


REFERENCES 


13292 
07914 
OR 20* 
1057* 
0927* 
0722 
9606 
0494 
0706 
O7416 
9960 
1584 
0627 
1080 
1586 
O578 
0480 
OU 3% 
OUR? 
O47O* 
O4 74% 
OuRt 
0695 
0320 
o719 
O7485 
O748 
0773 
0761 
0902 
O099* 
O521* 
O066* 
O228* 
O538* 
O7T60* 
O9ITO* 
O741 
0500 


Sate 


1656 


0826* 
1054% 
0928* 


06014 
1039 
16170 


1124 
1614 


0827 
Onau 
0831 
Ou73* 
ORS 2% 
9483 
0704 


T6E5 
1655 


O95 7* 
0150 
0523* 
O08 3* 
G231* 
0539 
OTB Ox* 
O975* 
O726 
0500* 
0577 
OS16* 


T6568 


0555 
e908 
9260 


06 86 
VAT 7 


TOBS* 
172 5* 
T179% 
TH6G 
1568% 
9513 


0837 


11e2 


0829 
OU 46 
0860 
Q8 19% 
D855% 
0859 


0999 
0708 


OO8u* 
O232* 
O572* 
O77 0* 
O9TI# 


O05 39% 
S579 
O527*% 


0908* 
0266 


o8og 
1581 


TOR) * 
4128 


0858 
O46 1* 
o3oT4 
0825* 
O864*% 
0861 


1585 


1160 


9905 
0462 
0915 
O857* 
O8AS 


O64 O8T2* 


ine) 

ol 

os 
we og 


Aoog 


Gn 
+e 


O54 7® 
OA32 


0949 
18364 


T5379 


0962 


06473 


Ok T* 
05 33% 
058 2* 
O779*% 
1579 


0550% 
068R 
0580 


O815* OA2u* 


OT4e2 
0534 
C5 84® 
O7B9 


O553% 
1029 
0530 


Caau® 
O586 


TR4" 


PART NO. 
PAGE 


O856% 


5129648 
168 


OGAPRIO 
AFPSTG 


22MAY70 
571843 


OTAIGT 
574534 
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BO44 DISK FRIENDS TEST 


SYMBOL T LEN VALUE DEFN PEFERERCES 


OB 14 O617* D619 0620 0626* 0902 0903* 0907 9943 0913 
0928 0957 0968* 09 0972 O976* 0978* 0982 0983 0999* 1106* 
1708* 1109 1557* 5é 1559 1563 
€ GOT 0002 1646 G063* 0075 0676 0084 0089 0093 00995 0097 0726 0130* 
3137 0133 0135* 9139* 0140 01417 0164 0146 0151* 0153 
0755 0157 01690 2 9165 O167 O167* 6170 0170* 0171* 0188 
91947 0197 0199 2 0223 0224 0226 0228 0229 0235 0236 
0236* 0257 0271 : 9292 9294 9296 0298 0310 9351* 0357 
0372 0377* 0378 286 03865* 0387 0389 0425* O490* 0504 05046 
0505* 0512 0527 9533 0545 6547 0553 0559 0563 5 0569 0696 
0703 0705 0705* 0754 0756 0758 0758* 0766 0770 0790 
0792 0792* 0£72 f 0875 O878 O880* 0922 1015 TOWG6 T1048 
1076* 1081 1982 1984 1094 1137* 1128 1140 1182 1233 4245 
003 OB4F 0165 0161 
A 003 O81p O149 9145 
YIMY 006 10FF 0654 0652 8656 
YNAM A 007 AAC 1850 0206 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


TOCTTO ef. R G To GORBOR-& 
571540 17 


ISN MAINTENANCE 


BO4G 


THE CHARACTER 


CL 1 THROUGH 16 


T+-Z5FRRG SE-B. 


T+-DOA.-H | HSAdD 


T+-,, SH-3*8GBU. 


T4-%W (-HP1?2HG- 


_/@Y).> Dd B/ 


T+~ 
T+->*/JOHET/B) 22C 
Te-?P+H OFPHENT 
T+-OK | R9OHERE~Q 


T+- T{(AAHDH. 3" OH 


T+ 2 EL-~GE", 20 * 


T+-3CDLGEF P2-6¥ 


T+-Je+¢ OF PHG*AB 


T+-49FST2/06AR/_ 


Te 5UraHGS HR tT 


T+-6? /YDCA,NT D 


TH 7D-8> OC -565 


T+-8¥ - g8aBG /2 


TH-9-FA, AY /¥OS FO 


PH- SF] HGACR OCS 


TIMARTC 


573512 


DIAGNOSTIC 


DISK FRIENDS TEST 


INDICATES A BLANK COLUMN 


CL 17 THROUGH 32 


KGAR=DAOHD (~. 
G <B6CEEY 1-E cu 


/OHEL/<$DDCWOR 


" PHAT3QBE'HE Aw 
Fo DDAZ V> DDa, 


YOH* BHDCYON*HS TY 


GX¥.S  |HEFE4P #5 


9GL7T /OHSY+=0 + 


DPOTIDYER |< S Temi 
‘R/-ERYDCOY sT?E0 


G /, PP 17 BY+S99 ¢ 


QOH FBFROMEE K~2<¢B 


ACOE2D *ORSS>aY* 
Ab=q /OHE 0 FaAaH 
COH* (TCT#EPOU< (38 
ED/YRYARCO/WT FEL 
“ory- 


PUSPUERYXAY 


#ANA-EOSHPGL FORNE 


TPOROYI-.C S4, 
2248 
RTS 


PROGRAM 


GBIECT CARD LI 


AND THE 
CL 33 THROUGH 438 


/I#CO-HO3 TEPER 


0 < EC}4) AATH H 


BHDCWOHSHS,¥~ [4 


1 KB EDC} I-Paak 


~OH*.H#-A JHA BS~ 


}:?lcpass /Daac 


GDT--E" 217 *9R04 


AMYEF?PECADYIBIES 


DI[FH(STEBEND( IH 


=o 


RFCO% O6Q aBGEC 
HFOUCBIV2F%u< ty 
B /PHFOSOFTT-Pay 


- 


T+A QB* PCTHIEA- 
T_AsS@e 


>OHFSPSORFOB-CTY 


0 OTAUGTO 
SPST 


CHARACTERS 


STING 


CL 49 THROUGH 64 


RZ T#PM*PK OAEN™D 


PAE 'R/ATOHS CLG 


S|S*QAnHS, 3-aR- 


SYPSHEN G2 


R46 oo 
HE BSUAAH 


A PHED?HGA, -A 78 


D+~HOF,X- [HS _ TO 


VPD2=2<BGC THAD C 


p<so 


Wares 


TPOL2 


OOK 


TaZAaARC DQ Awd+ H 


tte oP 


VAY? QOSOBEB 


HWeTIy ; PRT7Y 
574540 


DE A INDICATE NUMERIC 


CL 65 THROUGH 80 


PR*B8G /ZFHVKGY+ 


GE"G2 $+ FICOC 


2uaT. /OHE1 sosppe 


KTEDAF<?2 SAB & 


~EYPTHE+CQ 


« . 


2 EGF SHR >Y 


PQ-J-b yo 


as G+U OF PHGACH 


Pye SONET es £02 


2-8, /ONSY+, 


fOZ 


OF?HEAT-DPA,2D ? 


PART 
PAGE 


SHEETS 


NO. 5129648 


TTA 


CL 81 THROUGH 96 


. a 


3324B0480001 


7 9 


D 4 "OZBO480002 


YOR* ~-SBOUHOOOR 


206d. )LUBOELOOOY 


BE@Y }$ ROeLOGOS 


IT<BOELOO0E 
2 6% KL 


BOLGOOO? 


“AAG 2CC80UN0008 


EaYD ;EpBoeeog4 


35D 
FAY §S*80485012 


BLED @YSBOuuOO1R 


ED 


oo 


~ROULOOTL 


RO He 


NS@BOGuO0TS 


PFO% KTOBOAEGO 1A 


SZBROLBOOTS 


FN ei. 


IBM MAINTENANCE 


ROGG DISK 


CL 1 THROUGH 16 


JPO+ & 


” 


T+/ETDt + 


T+/0;A36HECU* /E 


T+/KR SUCEIVYPSC 


a a es 


T+/ LM H 14 


T+/M{13X-EC,2D U 


” 


T+/NHP-*% IMs OB 


ry 


T+/OE02Z O+ HOFIH 


. 


T+/P PAWT] Quvoo 


T+/OK ~,2DAGT 


TH/RIGS 


AWTOHR* 


TH/EMC BSI, XOR* 


TH+/EX /O-ODPAWTE O 


“ 


T+/*S 57 HCOH*M] - 
T+/)) E83 /OHEI-9 


TH; QUAHGIT-8D (3 


T+ SaL ED CCOWEM pH 


. 


T+esSD Hu ¥ 


Contr tat 


T+/S"C URPAZNC * 


TAT, Wace genie 


DIAGNOSTIC 


PROGRAM 


FRIENDS TEST 


CL 4“? THROUGH 32 


QB% GEBPK &<a+/5 


2/93 /OH; /&#PMU 
TEC,B JSTA@Y*D(-D 
<BAWIF 242 /00<CBAW 

“220 7 /08 


WFOSRS*SG /SYFOW 


) OBDO338CD(72-$é 


RR~ESFE<<O/WTPES 
BE-ISFECCO/ETEFEL 


OODEO"FO-RSthG /Y 


*XHBOON* BHD BOOR* 
20 *ORI> TAY*D] YH 
Eas 


twee eee 


(TITOFLS 


HHMI YESS El 


RO/DGC aROs34C | 


Cee eee eee 


mete 


Q6APETO 
PTGS 


ORGECT CARD 


CL 33 THROUGH 48 


(+ OBPHEBCO#E 7 


#4413 BPaIe:0-D 
P2 @ EMDPreanEHo 
FLAC SKIFMGI OIE 

JOH 
EpvHG}O4A 1-/9¥D 
TCRYRY 1WUOH*S03— 


% A-8 $7" 2HACSO 
BF-E F-+ /ORE V% 
| A-JEOL /noson* 
"/10¥ (-HP1, 7" PH 
“oiwPCEYRYTHNON* 
EFECRZ<BG /ADD (Y 
#A3~SD (32D #4001 
$E*BGES3 /OHE1/% 


G /YBOIWTCEYRY18 


2R/2TCT2ZRDIPHEQ1 
a>annunnnge Vv 


RO/EDC ORETDVA) x 


es 


LISTING 


CL 49 THROUGH 64 


/IGEV+OEOPEBG /Y 


MKOOCEC4Y CQHESDS 


ORTQOARAO] AnTEAL 


SEIYOG) 4% AV AO 


Da~DION*3G-DM] OF 


. « 


$ 1-RFT? /OHSAA- 
R?4OBA~ DATE DEE=G 


SD(32D PAYALNOY* 


. - 


FP CCD OCTADDY* 


RYO TEPECRZCHAGY 


BF/D] Av] EXL2-S* 


ABHGA In/ayD 


r=<BG /YEBII9+ D 
fE¥RG /YAGIONON® 
| BY*D] | H*LaBcEs3 
$7: B+OH*BHDB+OH* 


UT-ELEOL /0 D 


QAITUCI3UAZ 3PI Ns 
OFDMCBAVSPUB<CAY 


02) X1axs2aesza x 


OTONT IO 
571549 


CL 65 THROUGY 80 


OT-ELE@L /OHSYI-~ 


SBAMT( DQAOQSAECE 


AAKA( DM 


PROB) UAQ-DFC 8 
Ecspoaasc oc og 
NF3. /OHE LUgeT- 
2-B%AQAWT] DNYWE 
pOR#N, <POD>32/0L 
DI} 9caBG /yBaa? 
QRA~J (~DPMCSAET, 
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